home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t7.d64 / thirsty nellan.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  14KB  |  431 lines
  1. 2 I=9:GOSUB6000
  2. 4 PRINT"[147][142][150]                               [175]
  3. 5 [153]"THEN(null)FN(null) FN FN (null)(null)THEN(null)FN   LEFT$ (null)    USR(null) (null)FN(null)THENANDSGN(null) USR(null) (null)(null)";
  4. 6 [153]"THEN FN(null) (null) (null) (null)(null)THEN FN   LEFT$ (null)     FN FNFN(null)THEN(null) (null)  FN THENFN";
  5. 7 [153]"   TAB(               TAB(             TAB(
  6. 10 PRINT,"[155]WRITTEN FOR THE TRS-80
  7. 11 [153],"       BY
  8. 12 PRINT,"[150]FURMAN H. SMITH
  9. 20 [153],"LISTADAPTED FOR THE 64
  10. 21 PRINT,"       BY
  11. 22 [153],"DEFSTEVEN C. DARNOLD
  12. 23 PRINT,"P.O. BOX 201
  13. 24 [153],"ALEXANDRA, NEW ZEALAND
  14. 25 FORI=1TO4000:NEXT
  15. 100 POKE788,52
  16. 105 GOSUB1010:GOSUB705
  17. 110 INPUT"[150][193]RE YOU THE ONLY PERSON PLAYING";A$
  18. 115 P=1:A$=LEFT$(A$,1):IFA$="Y"THENP9=1:GOTO140
  19. 120 IFA$<>"N"THENPRINT"[208]LEASE TYPE YES[150] OR NO":GOTO110
  20. 130 INPUT"[150][200]OW MANY OF YOU WILL BE PLAYING[160][160][160][157][157][157]";A$:P9=VAL(A$):IFP9<1THEN130
  21. 140 IFP9>5THENPRINT"[155][211]ORRY, THAT IS TOO MANY.":GOTO130
  22. 145 I=1:INPUT"[215]HAT IS YOUR NAME[160][160][160][157][157][157]";P$(P):GOSUB146:GOTO150
  23. 146 J=ASC(LEFT$(P$(I),1)):IFJ<99THENP$(I)=CHR$(J+128)+MID$(P$(I),2)
  24. 147 FORJ=1TOLEN(P$(I)):IFMID$(P$(I),J,1)=" "THENP$(I)=LEFT$(P$(I),J-1):RETURN
  25. 148 NEXT:RETURN
  26. 150 IFI=P9THEN165
  27. 155 I=I+1:PRINT"[208]LEASE GIVE ME THE NAME OF PLAYER"I
  28. 160 INPUT"[160][160][160][160][160][160][157][157][157]";P$(I):GOSUB146:GOTO150
  29. 165 IFP9=1THENT2=T9:GOTO205
  30. 199 T2=4
  31. 205 PRINT"[147]
  32. 210 I[178][197]([202]("091506010902091310",R[172]2[171]1,2)):[141]6000
  33. 211 W4(R)[178]1:I[178]1[170][181]((R[171]1)[173]R8):J[178]R[171]R8[172](I[171]1)
  34. 215 [145]I[141]220,225,230:[137]235
  35. 220 [145]J[137]2010,2020,2030
  36. 225 [145]J[137]2040,2050,2060
  37. 230 [145]J[137]2070,2080,2090
  38. 235 [129]M[178]1[164]M9
  39. 240 [139]L(M)[178]R[167][141]265
  40. 245 [130]M
  41. 250 [139][187](1)[177]T[172](2[171]W4(3))[173](7[172]T9)[167]260
  42. 255 [153]:[153]"ATN VOICE SAYS:  << (null)YPE LEFT$VAL(null)(null) IF YOU
  43. 256 PRINT"NEED HELP. >>
  44. 260 [137]305
  45. 265 [153]:I[178]1[170][181]((M[171]1)[173]8):J[178]M[171]8[172](I[171]1)
  46. 270 [145]I[137]275,280,285,290
  47. 275 [145]J[137]2410,2420,2430,2440,2450,2460,2470,2480
  48. 280 [145]J[137]2490,2500,2510,2520,2530,2540,2550,2560
  49. 285 [145]J[137]2570,2580,2590,2600,2610,2620,2630,2640
  50. 290 [145]J[137]2650
  51. 305 [153][202]("DEFLISTVERIFYLISTFORDEFPOKE",R,1);
  52. 306 [153]""Q$(1[170]Q9[172][187](1));:[139][187](1)[177].5[167][153]", ";P$(P);
  53. 315 [153]"?WAIT":[129]I[178]1[164]39:[153]" ";:[130]:[129]I[178]1[164]36:[153]"CMD";:[130]:[141]799:[153]
  54. 325 [129]I[178]1[164]I9:[139][202](A$,I,1)[179][177]" "[167][130]
  55. 330 V$[178][200](A$,I[171]1):[139]I[178]I9[170]1[167]N$[178]V$:[137]345
  56. 335 [129]J[178]I9[164]I[169][171]1:[139][202](A$,J,1)[179][177]" "[167][130]
  57. 340 N$[178][201](A$,I9[171]J)
  58. 345 V[178]0:N[178]0
  59. 350 [129]I[178]1[164]V9:[139]V$(I)[178]V$[167]V[178]I:[137]355
  60. 351 [130]I
  61. 355 [129]I[178]1[164]N9:[139]N$(I)[178]N$[167]N[178]I:[137]357
  62. 356 [130]I
  63. 357 [139]0[179]N[175]N[179]9[167]405
  64. 360 [139]V[172]N[177]0[176](V[170]N[177]0[175]V$[178]N$)[167]380
  65. 361 [137]3505
  66. 365 [153]"RIGHT$ DON'T UNDERSTAND.":[137]305
  67. 380 [139]N[179]29[167]405
  68. 381 [139]N[178]29[167]N[178]11:[137]405
  69. 382 N[178]N[171]7
  70. 405 [139]N[177]4[175]N[179]9[167]N[178]N[171]4
  71. 410 [139]N[177]4[176]N[178]0[167]435
  72. 411 [145]N[137]412,416,420,424
  73. 412 W1(R)[178][182](W1(R)):[139]W1(R)[178]1[167]430
  74. 414 [139]W1(R)[178]2[167]R[178]R[171]R8:[137]605
  75. 415 [137]505
  76. 416 W1(R[170]R8)[178][182](W1(R[170]R8)):[139]W1(R[170]R8)[178]1[167]430
  77. 418 [139]W1(R[170]R8)[178]2[167]R[178]R[170]R8:[137]605
  78. 419 [137]505
  79. 420 W2(R[170]1)[178][182](W2(R[170]1)):[139]W2(R[170]1)[178]1[167]430
  80. 422 [139]W2(R[170]1)[178]2[167]R[178]R[170]1:[137]605
  81. 423 [137]505
  82. 424 W2(R)[178][182](W2(R)):[139]W2(R)[178]1[167]430
  83. 426 [139]W2(R)[178]2[167]R[178]R[171]1:[137]605
  84. 427 [137]505
  85. 430 [153]"(null)OU CAN'T WALK THROUGH WALLS.":[137]305
  86. 435 [139]N[179][177]12[175]N[179][177]22[167][141]4015:[137]440
  87. 436 [141]4030
  88. 440 [139](V[179][178]4[176]V[178]13)[175]N[178]22[167]5410
  89. 445 [139]M[179][177]0[176]V[178]0[176]V[177]8[167]455
  90. 450 [153]"(null)HAT'S NOT POSSIBLE NOW, "P$(P);".":[137]305
  91. 455 [139]M[178]0[176]V[178]15[176]N[178]9[167]505
  92. 460 [139]4[179]V[175]V[179]9[167]475
  93. 465 [139]L(M)[177][171]1[175]L(M)[179][177]R[167]470
  94. 466 [137]475
  95. 470 [153]"RIGHT$T SEEMS THAT THE "N$" ISN'T THERE.":[137]305
  96. 475 [139]V[177]8[167]505
  97. 476 [139]V[179]5[167]V[178]1:[137]480
  98. 477 V[178]5
  99. 480 [139]N[178]28[167][153]"(null)HE (null)ATN(null)LENLEFT$ STAYS ON YOUR WRIST.":[137]305
  100. 485 [139]N[178]10[176]N[178]23[176]N[178]24[167]5980
  101. 490 [145](V[170]3)[173]4[141]4045,4100
  102. 495 [137]235
  103. 505 [139]N[179][178]8[175]N[177]0[167]5015
  104. 506 [139]N[178]9[175]V[179]9[167]5980
  105. 510 [139]N[178]26[176]N[178]27[167][145](N[171]25)[141]5105,5155:[137]305
  106. 512 [139]V[178]0[167]365
  107. 515 [139]V[179][178]14[167]J[178]V[171]8:[137]520
  108. 516 J[178]V[171]14:[137]525
  109. 520 [145]J[137]5205,5255,5355,5355,5405,5605
  110. 525 [145]J[137]5705,5755,5780,5805,5980,205
  111. 605 T[178]T[170]1:T1[178]T1[170]1
  112. 610 [139]T[179]T9[167]625
  113. 615 [153]:[153]"(null)IME IS UP TANTAN THE"T9"SCOOTS HAVE PASSED."
  114. 620 [146]198,1:[128]
  115. 625 [139]W1(R)[178][171]1[167]W1(R)[178]1
  116. 630 [139]W1(R[170]R8)[178][171]1[167]W1(R[170]R8)[178]1
  117. 635 [139]W2(R)[178][171]1[167]W2(R)[178]1
  118. 640 [139]W2(R[170]1)[178][171]1[167]W2(R[170]1)[178]1
  119. 645 [139]T1[179][178]T2[167]205
  120. 646 T1[178]0:[139]P[179]P9[167]P[178]P[170]1:[137]650
  121. 647 P[178]1
  122. 650 [153]"LOADRIGHT$T'S "P$(P)"'S TURN NOW.":[153]:[146]198,1:[137]210
  123. 705 [153]"LOAD(null)ET'S PRETEND THAT YOU ARE IN AN
  124. 715 PRINT"ENCHANTED HOUSE.  [217]OU SHOULD USE ONE OR
  125. 720 [153]"TWO WORDS TO TELL ME WHAT YOU WANT TO
  126. 725 PRINT"DO.  [201]'LL SUGGEST MESSAGES AT FIRST.
  127. 730 [153]"LISTRIGHT$F YOU HAVE A QUESTION WHILE YOU'RE
  128. 735 PRINT"INSIDE THE HOUSE, TYPE [200][197][204][208][155].":RETURN
  129. 799 A$="":POKE198,0:POKE204,0:POKE647,PEEK(646)
  130. 800 I9=LEN(A$):WAIT198,7:GETN$:I=ASC(N$):IFI9>30THENI=13:A$="X"
  131. 802 IFI=13ANDI9>0THENPOKE204,1:PRINT" ";:RETURN
  132. 805 IFI=20ANDI9>0THENA$=LEFT$(A$,I9-1):PRINTN$;
  133. 810 IFI>90OR(I<65ANDI<>32)THEN800
  134. 815 A$=A$+N$:PRINTCHR$(I+128);:GOTO800
  135. 1010 R6=1:R7=3:R8=3:R9=R6*R7*R8:R0=R9-R8+1:R=R0:V9=20:N9=31:M9=25
  136. 1025 DIMV$(V9),N$(N9),L(M9),N1(M9),W(M9),W4(R9),W4$(R9)
  137. 1030 DIMW1((R6*R7+1)*R8),W2(R9+1),W1$(3),W2$(3),W3$(9)
  138. 1035 T=2:T1=0:T9=72:C=0:C9=4
  139. 1040 I=RND(-TI)
  140. 1045 Q9=4:B9=4:DIMQ$(Q9),B$(B9)
  141. 1110 FORI=1TOV9:READV$(I):NEXT
  142. 1115 DATATAKE,GET,GRAB,PICK,DROP,GIVE,OFFER,DEPOSIT,KICK,CONSULT,OPEN,UNLOCK
  143. 1125 DATAFILL,LIST,VALUE,SIT,DRINK,HELP,GO,LOOK
  144. 1210 FORI=1TON9:READN$(I):NEXT
  145. 1215 DATAN,S,E,W,NORTH,SOUTH,EAST,WEST,DOOR,CHAIR,RABBIT,BOWL,COUPON,WRAPPER,MAP
  146. 1225 DATAKEY,EGG,COIN,JEWEL,CATALOG,VASE,MILK,BANKER,CAT,WORDS
  147. 1230 DATAINVENTORY,SCORE,WATCH,CHULA,KLINKOYN,NELLAN
  148. 1320 FORJ=1TO9:W3$(J)="[166][166][166]":NEXT
  149. 1420 FORI=0TO3:READW1$(I),W2$(I):NEXT
  150. 1430 DATA"[166][166][166]  [146][166][166][166]","  [146] "
  151. 1440 DATA"[166][166][166][166][166][166][166][166]","[166][166][166]"
  152. 1450 DATA"[166][166][166]  [166][166][166]","   "
  153. 1460 DATA"[166][166][166][169][169][166][166][166]"," [169] "
  154. 1510 FORI=0TO9:READW4$(I):W4(I)=0:NEXT
  155. 1515 DATA"   ?    "
  156. 1520 DATA" [207]FFICE ","  [205]ILK  "," [211]TORE  "
  157. 1525 DATA"  [215]HITE ","  [199]OLD  ","  [200]OT   "
  158. 1530 DATA"  [194]ANK  ","  [199]REEN ","  [195]AT   "
  159. 1610 FORI=1TO(R6*R7+1)*R8:READW1(I):NEXT
  160. 1615 DATA1,1,1,-2.5,-2,-1,-2,-1,-2,1,1,1
  161. 1710 FORI=1TOR9+1:READW2(I):NEXT
  162. 1715 DATA1,-1,-2.5,1,-2,-2,1,1,-2,1
  163. 1810 FORM=1TOM9:READL(M),N1(M):W(M)=0:NEXT
  164. 1815 DATA1,20,6,13,0,12,0,12,0,12,2,9,3,0,0,0,7,23,1,16,9,24,0,24,0,24,0,24,0,11
  165. 1825 DATA0,11,0,11,4,11,7,15,2,14,1,0,8,18,0,17,3,19,0,21
  166. 1830 FORI=22TO25:W(I)=25:NEXT
  167. 1910 FORI=1TOQ9:READQ$(I):NEXT
  168. 1915 DATA"[215]HAT ARE YOU GOING TO DO NOW","[215]HAT NOW"
  169. 1920 DATA"[215]HAT DO YOU CHOOSE TO DO","[215]HAT IS YOUR DECISION"
  170. 1925 FORI=1TOB9:READB$(I):NEXT
  171. 1930 DATAHAPPY,"GLAD TO SEE YOU",BUSY,SLEEPY
  172. 1995 RETURN
  173. 2010 PRINT"[158][215]ELL, "P$(P)", YOU ARE IN THE [207]FFICE."
  174. 2011 PRINT"[217]OU ARE STANDING NEXT TO A [195][200][193][201][210] WHICH
  175. 2012 [153]"IS NEXT TO A DESK IN A ROOM WITH YELLOW
  176. 2013 PRINT"WALLS AND BROWN CARPET.
  177. 2015 [153]"(null)HERE IS A DOOR IN THE SOUTH WALL.":[142]
  178. 2020 [153]"(null)HIS IS THE (null)ILK (null)OOM.  RIGHT$F YOU HAVE A
  179. 2021 PRINT"[194][207][215][204], YOU CAN SAY [198][201][204][204] [194][207][215][204] OR [199][197][212] [205][201][204][203]
  180. 2022 [153]"AND HAVE YOUR PEEK(null)(null)(null) FILLED WITH NICE
  181. 2023 PRINT"COLD [205][201][204][203].  [212]HERE ARE DOORWAYS TO
  182. 2024 [139]L(15)[178][171]1[175]L(6)[178]2[167]L(18)[178]0:L(17)[178]2
  183. 2025 [153]"THE SOUTH AND EAST.":[142]
  184. 2030 [153]"OPEN(null)OU ARE IN THE (null)TORE.":[142]
  185. 2040 [153]"CLR(null)OW YOU ARE IN THE (null)HITE (null)OOM TANTAN THE
  186. 2041 PRINT"WALLS ARE WHITE.  [212]HERE IS A WALL TO
  187. 2042 [153]"THE WEST.  (null)OU KNOW THAT THE PEEKANK IS
  188. 2043 PRINT"THROUGH THE SOUTH DOORWAY.  [212]HERE'S A
  189. 2044 [153]"DOOR TO THE NORTH AND A DOORWAY TO THE  EAST.":[142]
  190. 2050 [153]"SYSATNLL THE WALLS IN THIS ROOM ARE PAINTED
  191. 2051 PRINT"GOLD.  [212]HERE ARE EXITS TO THE NORTH,
  192. 2052 [153]"EAST AND WEST.":[139]L(15)[178][171]1[175]L(23)[178]0[167]2054
  193. 2053 [142]
  194. 2054 L(15)[178]0:L(16)[178]5:L(23)[178]5:[142]
  195. 2060 [153]"SYS(null)H, IT'S HOT IN HERE!  (null)OU ARE IN THE
  196. 2061 PRINT"[200]OT [210]OOM AND IF COLD [205][201][204][203] WERE IN THIS
  197. 2062 [153]"ROOM, IT WOULD BE WARMED."
  198. 2063 [153]"(null)HE (null)ATN(null) SHOWS THE DOORWAYS.":[139]L(4)[178][171]1[167]L(4)[178]0:L(5)[178][171]1
  199. 2064 [142]
  200. 2070 [153]"LIST(null)OU ARE IN A ROOM CALLED THE PEEKANK.
  201. 2071 PRINT"[193] GIANT CARPET ON THE FLOOR SAYS:
  202. 2072 [153]"DEF       (null)ELCOME "P$(P)"WAITLIST.
  203. 2073 PRINT"[193] SCREEN SAYS THAT YOUR VISIT WILL LAST
  204. 2074 [153]"FOR"T9"SCOOTS. "T"SCOOTS HAVE PASSED.
  205. 2075 PRINT"[212]O LEAVE THIS ROOM, TYPE [199][207][160][206][207][210][212][200].":RETURN
  206. 2080 PRINT"[217]OU ARE STANDING IN A ROOM WITH GREEN
  207. 2081 [153]"WALLS.  ATN GREEN LENLEFT$ATNRIGHT$(null) IS IN THE CORNER.
  208. 2083 IFW1(4)<0THENRETURN
  209. 2084 PRINT"[193] SIGN HERE SAYS:  [205]AGIC WORKS  ":PRINTTAB(17)"    IN THE     "
  210. 2085 PRINTTAB(17)"[197]NCHANTED [200]OUSE[146]":RETURN
  211. 2090 PRINT"[149][217]OU ARE IN THE ROOM WHERE [206]ELLAN LIVES;"
  212. 2091 PRINT"THIS ROOM IS CALLED THE [195]AT [210]OOM.":RETURN
  213. 2410 PRINT"[212]HERE IS A COLLEGE [195][193][212][193][204][207][199] FROM THE
  214. 2411 [153]"(null)NIVERSITY OF (null)EXAS HERE.":[142]
  215. 2420 [153]"(null)N THE FLOOR IS A LEN(null)(null)(null)(null)(null).  RIGHT$T SAYS ON
  216. 2421 PRINT"THE [195][207][213][208][207][206] THAT IF IT IS [196][210][207][208]PED IN THE
  217. 2422 [153]"(null)TORE WHILE THE MACHINE IS WORKING, YOU
  218. 2423 PRINT"WILL RECEIVE ONE BLUE BOWL.":RETURN
  219. 2430 PRINT"[212]HERE IS A CLEAN EMPTY BLUE [194][207][215][204] HERE.":RETURN
  220. 2440 PRINT"[212]HE [194][207][215][204] OF COLD [205][201][204][203] IS HERE.":RETURN
  221. 2450 PRINT"[212]HERE IS A BLUE [194][207][215][204] WITH WARM [205][201][204][203].":RETURN
  222. 2460 RETURN
  223. 2470 PRINT"[201]N A CORNER OF THE ROOM IS A GIGANTIC
  224. 2471 [153]"MACHINE.  ATN MECHANICAL VOICE SAYS:
  225. 2472 PRINT"<< [196][197][208][207][211][201][212][160][195][207][213][208][207][206][211][160][200][197][210][197] >>.":RETURN
  226. 2480 PRINT"[212]HE MACHINE IN THE CORNER HAS A
  227. 2481 [153]"FLASHING SIGN ANNOUNCING: (null)(null)(null)CLOSE(null)ASCCLOSEPEEK(null)(null)(null)(null)WAIT.":[142]
  228. 2490 [153]"(null)HE PEEKATN(null)(null)VAL(null), (null)R. (null)LINKOYN, LOOKS "B$(1[170]B9[172][187](1))".
  229. 2491 IFL(23)=R0THENPRINT"[212]YPE [211][195][207][210][197] TO CHECK YOUR SCORE."
  230. 2494 RETURN
  231. 2500 PRINT"[212]HERE IS AN OLD BRASS [203][197][217] HERE.":RETURN
  232. 2510 PRINT"[206]ELLAN THE [195][193][212] IS HERE.  [211]HE NEARLY
  233. 2511 [153]"FILLS UP THE ROOM BECAUSE SHE'S AS BIG
  234. 2512 PRINT"AS AN ELEPHANT (REALLY!!).  [201]N A SOFT
  235. 2513 [153]"POLITE VOICE SHE SAYS:  << RIGHT$'D LOVE TO
  236. 2514 PRINT"HAVE SOME NICE COLD [205][201][204][203].  [205]ANY OF MY
  237. 2515 [153]"FRIENDS HAVE TRIED TO DELIVER COLD (null)RIGHT$(null)(null)
  238. 2516 PRINT"HERE AND MANY HAVE FAILED.  [208]ERHAPS
  239. 2517 [153]"YOU, "P$(P)", WOULD BE KIND ENOUGH TO
  240. 2518 PRINT"TRY.  [201] MUST WARN YOU:  [201]T WILL NOT BE
  241. 2519 [153]"EASY. >>":[142]
  242. 2520 [153]"(null)ELLAN PURRS AND SAYS:  << (null)HANK YOU
  243. 2521 PRINT"FOR THIS NICE [205][201][204][203].  [201]T'S A PITY THAT
  244. 2525 [153]"IT'S SO WARM. >>":L(5)[178]0:L(3)[178]9:L(12)[178]0:L(11)[178]9:[142]
  245. 2530 [153]"(null)OW!  (null)ELLAN IS PURRING VERY, VERY
  246. 2531 PRINT"LOUDLY.  [211]HE LOOKS AT YOU AND SAYS:
  247. 2532 [153]"<< "P$(P)", YOU'VE MADE ME SO HAPPY.
  248. 2533 PRINT"[201] KNOW THAT IT WASN'T EASY TO GET THIS
  249. 2534 [153]"PEEK(null)(null)(null) OF COLD (null)RIGHT$(null)(null) TO ME.  (null)OU DID IT!
  250. 2535 L(4)=0:L(3)=9:L(13)=0:L(14)=9:IFL(25)<>0THENRETURN
  251. 2536 PRINT"[208]LEASE ACCEPT THIS SMALL PRESENT. >>":L(25)=9
  252. 2537 PRINT"[211]HE OFFERS YOU A SMALL "N$(21)".":RETURN
  253. 2540 PRINT"[206]ELLAN IS NAPPING.  [211]HE'S QUITE HAPPY.":RETURN
  254. 2550 PRINT"[195]HULA THE WHITE [210][193][194][194][201][212] IS HERE AND
  255. 2551 [153]"SHE SAYS:  << (null)ELL, MY FRIEND "P$(P)",
  256. 2552 PRINT"[201] HOPE THAT YOU ARE ENJOYING YOUR
  257. 2553 [153]"ADVENTURE. >>":[142]
  258. 2560 [153]"LENHULA HOPS OUT OF YOUR ARMS AND
  259. 2561 PRINT"SCURRIES OFF.  [211]HE RETURNS AND SAYS:
  260. 2562 [153]"<< (null)LEASE (null)ATN(null)VAL THIS GOLDEN VALCHR$CHR$ THAT RIGHT$
  261. 2563 PRINT"HID HERE IN THE [199]OLD [210]OOM. >>":L(23)=5:L(15)=5:L(16)=0:C=C-1:RETURN
  262. 2570 PRINT"[195]HULA HOPS DOWN AND GOBBLES A GROWTH
  263. 2571 [153]"OF CARROTS THAT WAS BLOCKING THE EAST
  264. 2572 PRINT"DOORWAY.  [211]HE SMILES AND SAYS:
  265. 2573 [153]"<< (null)HANKS, FRIEND "P$(P)". >>
  266. 2574 L(17)=0:L(15)=2:L(6)=0:C=C-1:RETURN
  267. 2580 PRINT"[193] WHITE [210][193][194][194][201][212] IS HERE.  [211]HE HOPS TO
  268. 2581 [153]"YOU AND SAYS:  << RIGHT$ AM LENHULA.  (null)ELCOME
  269. 2582 PRINT"TO THE [197]NCHANTED [200]OUSE, MY FRIEND,
  270. 2583 [153]P$(P)". >>  (null)HE HUGS YOU AND SAYS:
  271. 2584 PRINT"<< [201] HAVE A PRESENT FOR YOU IN THE [199]OLD
  272. 2585 [153]"(null)OOM.  RIGHT$F YOU SAY (null)ATN(null)VAL (null)ATNPEEKPEEKRIGHT$(null), THEN YOU
  273. 2586 PRINT"CAN CARRY ME TO THE [197][193][211][212]. >>":L(18)=0:L(15)=4:RETURN
  274. 2590 PRINT"[212]HERE IS A MAGIC [205][193][208] HERE.  [201]F YOU [212][193][203][197]
  275. 2591 [153]"THE (null)ATN(null), YOU MAY LEN(null)(null)(null)(null)(null)(null) THE (null)ATN(null).":[142]
  276. 2600 [153]"ATNN OLD GUM WRAPPER IS ON THE FLOOR.":[142]
  277. 2610 [142]
  278. 2620 [153]"ATN HEAVY LEN(null)RIGHT$(null) IS HERE.":[142]
  279. 2630 [153]"ATN GOLDEN VALCHR$CHR$ IS ON THE FLOOR.":[142]
  280. 2640 [153]"(null)N THE FLOOR IS A MID$VAL(null)VAL(null).":[142]
  281. 2650 [153]"ATN MAGNIFICENT (null)ATN(null)VAL IS HERE.":[142]
  282. 3505 [139]A$[178]"EXTEND TIME"[167]T9[178]T9[170]24:N[178]28:[137]5315
  283. 3995 [137]365
  284. 4015 [139]V[178]0[176]N[178]0[167]M[178]0:[142]
  285. 4020 [139]N[178]24[167][139]L(11)[178]9[167]M[178]11:[142]
  286. 4021 [139]N[178]24[167]M[178]14:[142]
  287. 4025 [129]I[178]1[164]M9:[139]N1(I)[178]N[167]M[178]I:[142]
  288. 4026 [130]I
  289. 4030 M[178]0:[139]N[179][177]22[175]N[179][177]12[167][142]
  290. 4035 [129]J[178]3[164]5:[139]L(J)[179][177]0[167]M[178]J
  291. 4036 [130]:[142]
  292. 4045 [139]L(M)[178]R[175]C[179]C9[167]4075
  293. 4046 [139]C[177][178]C9[167]4055
  294. 4050 [153]"(null)OU'VE STILL GOT THE "N$".":[137]4140
  295. 4055 [153]"(null)OU CAN ONLY CARRY"C9"OBJECTS (NOT
  296. 4056 PRINT"COUNTING THE [215][193][212][195][200]) AND YOU ARE ALREADY
  297. 4057 [153]"CARRYING THAT MUCH.  RIGHT$F YOU WANT TO CHR$VAL(null)
  298. 4058 PRINT"SOMETHING ELSE, YOU WILL HAVE TO [196][210][207][208]
  299. 4059 [153]"SOMETHING FIRST.":[137]4140
  300. 4075 [139]W(M)[178]0[167]4090
  301. 4076 [153]"LENONGRATULATIONS, "P$(P)", YOU'LL EARN
  302. 4077 PRINT"POINTS WHEN THE "N$" IS [196][197][208][207][211][201][212]ED
  303. 4078 [153]"IN THE PEEKANK.":C[178]C[170]1:L(M)[178][171]1:[142]
  304. 4090 [153]"(null)(null), YOU ARE CARRYING THE "N$".":L(M)[178][171]1:C[178]C[170]1:[142]
  305. 4100 [139]L(M)[178][171]1[167][153]"(null)(null).":L(M)[178]R:C[178]C[171]1:[137]4105
  306. 4101 [137]4135
  307. 4105 [139]R[178]R0[167][141]5175
  308. 4110 [139]R[179][177]3[175]R[179][177]9[167][142]
  309. 4115 [139]L(2)[178]3[167]L(2)[178]0:L(3)[178]3:L(7)[178]0:L(8)[178]3
  310. 4120 [139]L(4)[178]9[167]L(4)[178]0:L(3)[178]9:L(11)[178]0:L(13)[178]9
  311. 4125 [139]L(5)[178]9[167]L(5)[178]0:L(3)[178]9:L(11)[178]0:L(12)[178]9
  312. 4130 [142]
  313. 4135 [153]"(null)OU DON'T HAVE THE "N$".
  314. 4140 PRINT"[212]O SEE A LIST OF WHAT YOU'RE CARRYING,
  315. 4145 [153]"TYPE RIGHT$(null)(null)VAL(null)(null)(null)(null)(null).":[142]
  316. 4505 [151]53281,1:[153]"LOADPOKE(null)OU ARE IN THE"W4$(R)"(null)OOM NOW.
  317. 4510 PRINTTAB(37)"[206][157][157][157][215] + [197][157][157][157][211]
  318. 4520 I2[178]R7[172]R8:[129]I1[178]1[164]R6
  319. 4525 [139](I1[171]1)[172]I2[179]R[175]R[179][178]I1[172]I2[167]4530
  320. 4526 [130]
  321. 4530 K0[178](I1[171]1)[172]I2:K9[178]I1[172]I2:K[178]K0:J[178]1
  322. 4535 [139]K[178]K0[175]J[178]1[167][153]W3$(7);
  323. 4540 [139]K[178]K0[175]J[177]1[175]J[179]R8[170]1[167][153]W3$(8);
  324. 4545 [139]K[178]K0[175]J[178]R8[170]1[167][153]W3$(9)
  325. 4550 [139]K[177]K0[175]K[179]K9[175]J[178]1[167][153]W3$(4);
  326. 4555 [139]K[177]K0[175]K[179]K9[175]J[177]1[175]J[179]R8[170]1[167][153]W3$(5);
  327. 4560 [139]K[177]K0[175]K[179]K9[175]J[178]R8[170]1[167][153]W3$(6)
  328. 4565 [139]K[178]K9[175]J[178]1[167][153]W3$(1);
  329. 4570 [139]K[178]K9[175]J[177]1[175]J[179]R8[170]1[167][153]W3$(2);
  330. 4575 [139]K[178]K9[175]J[178]R8[170]1[167][153]W3$(3)
  331. 4580 [139]J[177]R8[167]4595
  332. 4585 [139]W1(K[170]J)[177]0[167][153]W1$(W1(K[170]J));:[137]4590
  333. 4586 [153]W1$(0);
  334. 4590 J[178]J[170]1:[137]4535
  335. 4595 [139]K[178]K9[167][142]
  336. 4596 J[178]1
  337. 4600 [139]W2(K[170]J)[177]0[167][153]W2$(W2(K[170]J));:[137]4605
  338. 4601 [153]W2$(0);
  339. 4605 [139]J[177]R8[167][153]:[137]4620
  340. 4610 [139]W4(K[170]J)[177]0[167][153]W4$(K[170]J);:[137]4615
  341. 4611 [153]W4$(0);
  342. 4615 J[178]J[170]1:[137]4600
  343. 4620 K[178]K[170]R8:J[178]1:[137]4535
  344. 5015 [139]R[179][177]1[167]5040
  345. 5016 [139]L(10)[178][171]1[167]5030
  346. 5020 [153]"(null)HE DOOR IS LOCKED AND YOU'RE NOT":[153]"CARRYING THE KEY.":W1(4)[178]3.5:[137]305
  347. 5030 W1(4)[178]2.5:R[178]4:[137]605
  348. 5040 [139]R[179][177]2[167]5070
  349. 5041 [139]L(6)[179][177]2[167]5060
  350. 5045 [153]"(null)OU CANNOT ENTER TANTAN THE DOORWAY IS
  351. 5050 PRINT"BLOCKED BY A THICK GROWTH OF CARROTS.":W2(3)=3.5:GOTO305
  352. 5060 R=3:W2(3)=2.5:GOTO605
  353. 5070 IFR=4ANDL(10)<>-1THEN5020
  354. 5071 IFR=4THEN5080
  355. 5073 IFR>4THEN365
  356. 5075 R=2:GOTO605
  357. 5080 W1(4)=2.5:R=1:GOTO605
  358. 5105 PRINT"[217]OUR [215][193][212][195][200] STAYS ON YOUR WRIST FOR THE
  359. 5106 [153]"WHOLE VISIT.";:[139]C[178]0[167][153]"  (null)OU AREN'T CARRYING ANY-  THING ELSE.":[142]
  360. 5115 [153]"  LEFT$ERE IS AN INVENTORY OF":[153]"WHAT YOU'RE CARRYING:
  361. 5120 FORJ=1TOM9:IFL(J)=-1THENPRINTTAB(15);N$(N1(J))
  362. 5125 NEXT:RETURN
  363. 5155 GOSUB5175:PRINT"[217]OU HAVE"I"POINTS OUT OF 100.
  364. 5160 [153]"(null)OU EARN POINTS BY STR$VAL(null)(null)(null)RIGHT$(null)ING VALUABLE
  365. 5165 PRINT"THINGS IN THE [194]ANK.":RETURN
  366. 5175 I=0:FORJ=1TOM9:IFL(J)=R0THENI=I+W(J)
  367. 5180 A$="":IFP9>1THENA$="ALL "
  368. 5185 NEXTJ:IFI<100THENRETURN
  369. 5190 PRINT"[205]R. [203]LINKOYN SHOUTS:  [150]<< [217]OU "A$"WON! [150]>>":GOTO620
  370. 5205 PRINT"[203]ICKING "N$" DOES NOT HELP.":GOTO305
  371. 5255 IFNOT(N=11ORN=23ORN=24)THEN5305
  372. 5260 IFL(6)=0THEN5275
  373. 5265 PRINT"[212]HE "N$(N1(M))" LAUGHS AND SAYS:
  374. 5266 [153]"<< (null)ELL, "P$(P)", DID YOU KNOW THAT
  375. 5270 PRINT"RABBITS ARE VERY FOND OF CARROTS. >>":GOTO305
  376. 5275 ON2-W4(1)GOTO5280,5290
  377. 5280 PRINT"[212]HE "N$(N1(M))" SAYS:  << "P$(P)",
  378. 5285 [153]"RIGHT$ THINK THAT YOU'RE DOING GREAT. >>":[137]305
  379. 5290 [153]"(null)HE "N$(N1(M))" SMILES MYSTERIOUSLY AND
  380. 5295 PRINT"SAYS:  << [201] RECOMMEND THAT YOU [211][201][212] IN
  381. 5296 [153]"THE LENLEFT$ATNRIGHT$(null). >>":[137]305
  382. 5305 [139]N[178]15[167][141]4505:[137]305
  383. 5310 [139]N[178]20[167][153]"RIGHT$T DOESN'T HELP HERE.":[137]305
  384. 5315 [139]N[178]28[167][153]T"SCOOTS HAVE PASSED AND"T9[171]T"SCOOTS":[153]" REMAIN.":[137]305
  385. 5325 [137]5980
  386. 5355 [139]N[178]9[167]5015
  387. 5356 [137]5980
  388. 5405 [139]N[179][177]12[175]N[179][177]24[167]5980
  389. 5406 [139]N[178]24[167]V[178]5:N[178]12:[137]435
  390. 5410 [139]R[179][177]2[176]L(3)[179][177][171]1[167]5425
  391. 5411 L(3)[178]0:L(4)[178][171]1
  392. 5415 [153]"CHR$LUG, GLUG, PLINK.  (null)OUR PEEK(null)(null)(null) HAS COLD
  393. 5420 PRINT"[205][201][204][203] IN IT NOW.":GOTO305
  394. 5425 IFN=22ANDM=3THENPRINT"[212]HE [194][207][215][204] IS EMPTY.":N$="[194][207][215][204]"
  395. 5430 IFV<>13ANDL(M)=RTHENGOSUB4045:GOTO305
  396. 5435 IFM=4ORM=5THENPRINT"[212]HE [194][207][215][204] IS STILL FULL OF [205][201][204][203]."
  397. 5440 IFR<>2THENPRINT"[212]HE [205]ILK [210]OOM HAS LOTS OF [205][201][204][203].
  398. 5445 [139]L(M)[177][171]1[176]M[179]3[176]M[177]5[167][153]"(null)OU NEED A PEEK(null)(null)(null).
  399. 5450 GOTO305
  400. 5605 IFN<>25THEN5980
  401. 5606 PRINT"[201] KNOW THESE VERBS:  ";
  402. 5610 FORI=1TOV9:A$=V$(I):GOSUB5655:NEXT
  403. 5615 PRINT"[201] KNOW THESE NOUNS:  ";
  404. 5620 FORI=1TO28:A$=N$(I):GOSUB5655:NEXT:GOTO305
  405. 5655 PRINTA$;:IFA$=V$(V9)ORA$=N$(28)THENPRINT".":RETURN
  406. 5665 PRINT", ";:IFPOS(1)>32THENPRINT
  407. 5666 RETURN
  408. 5705 IFM=0THEN5980
  409. 5706 PRINT"[212]HE "N$" IS WORTH"W(M)"POINTS.":IFW(M)<>0THEN305
  410. 5710 PRINT"[200]OWEVER, IT MIGHT BE USEFUL AS A TOOL."
  411. 5720 IFN=11ORN=23THENPRINT"[198]RIENDS ARE VALUABLE."
  412. 5725 IFN=20THENPRINT"[193] UNIVERSITY EDUCATION IS A WORTHWHILE
  413. 5730 [139]N[178]20[167][153]"AND STIMULATING EXPERIENCE.
  414. 5735 GOTO305
  415. 5755 IFN<>10THEN5980
  416. 5756 IFR=1ORR=8THENR=9-R:GOTO605
  417. 5760 PRINT"[212]HERE'S NO [195][200][193][201][210] IN HERE.":GOTO305
  418. 5780 IFN<>22THEN5980
  419. 5781 IFL(4)=-1ORL(5)=-1THEN5790
  420. 5785 PRINT"[217]OU ARE NOT CARRYING ANY [205][201][204][203].":GOTO305
  421. 5790 PRINT"[199]LUG, GLUG.":L(4)=0:L(5)=0:L(3)=-1:GOTO305
  422. 5805 PRINT"[147][204]OST? . . . . . . . . . [195][207][206][211][213][204][212][160][205][193][208]
  423. 5810 [153]"(null)ANT ROOM DESCRIBED?  . (null)(null)(null)(null)
  424. 5820 PRINT"[215]ANT TO MOVE? . . . . . [199][207] DIRECTION
  425. 5825 [153]"(null)HAT'S A THING WORTH? . (null)ATN(null)(null)VAL THING
  426. 5835 PRINT"[215]ANT A HINT?  . . . . . [195][207][206][211][213][204][212] FRIEND
  427. 5850 [153]"(null)HAT TO DO? . . . . . . TRY THINGS":[137]305
  428. 5980 [139]N$[178]V$[167][153]"(null)OU'LL NEED TO USE TWO WORDS.":[137]305
  429. 5982 [153]"(null)HE "N$" IS HARD TO "V$".":[137]305
  430. 6000 [151]53280,I:[151]53281,I:[142]
  431.